home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Graphics 2
/
Graphics Vol.2(Romware)(1993).iso
/
programm
/
pep
/
psbits.pro
< prev
next >
Wrap
Text File
|
1992-09-21
|
685b
|
11 lines
/s0 save def /dumpDict 15 dict def /dump { dumpDict begin /height
exch def /width exch def /hStr 1000 string def /wStr 1000 string
def /sStr 1000 string def /hexD { currentfile hStr 0 currentfile
token pop getinterval readhexstring pop } def /solid { sStr 0
currentfile token pop getinterval } def /wSpace { wStr 0 currentfile
token pop getinterval } def /initStr { /len exch def /val exch
def /str exch def 0 1 len {str exch val put} for } def {} settransfer
sStr 0 999 initStr wStr 255 999 initStr width height 1 [1 0 0
1 0 0] {{ currentfile read pop dup dup 72 eq { pop pop hexD exit
} if 87 eq { pop wSpace exit } if 66 eq { solid exit } if } loop
} image end } bind def